10 M=8192:R=0:L=360:GOSUB260
20 M=12296:R=0:L=1550:GOSUB260
30 M=12544:R=0:L=1840:GOSUB260
40 M=12808:R=0:L=2110:GOSUB260
50 L=2380:R=0:M=13320:GOSUB260
60 L=2670:R=0:M=13568:GOSUB260
70 L=2940:R=0:M=13832:GOSUB260
80 L=3210:R=0:M=33856:GOSUB260
85 L=3270:R=0:M=7937:GOSUB260
91 PRINT:PRINT"INSERT OUTPUT DEVICE"
92 PRINT:PRINT"AND PRESS RETURN"
93 OPEN 1,0:INPUT#1,A$:CLOSE1:PRINT
99 REM
100 SYS 57812 "MC CODE",8,1
110 REM
120 REM ALTER ABOVE LINE FOR NEW NAME
130 REM OR TO SAVE TO TAPE ETC.
140 REM
150 REM
160 SYS 40000
170 END
180 OPEN 1,0:INPUT#1,A$:CLOSE1
260 M=M+6144
265 S=0:FORI=0TO7:READD
270 IFD<0THEN340
280 IFD>255THEN330
290 POKEM+R,D:S=S+D:R=R+1:NEXTI
300 READD:IFD<0THEN340
310 IFS=DTHENL=L+10:GOTO265
320 PRINT"SUMCHECK ";
330 PRINT"ERROR IN LINE";L:END
340 READD:IFS<>DTHEN320
350 RETURN
360 DATA 76,4,34,76,57,34,76,212,569
370 DATA 34,76,18,32,76,238,34,76,584
380 DATA 16,35,169,1,141,168,2,32,564
390 DATA 58,35,234,234,169,7,133,185,1055
400 DATA 169,0,141,230,219,141,190,219,1309
410 DATA 141,189,219,141,191,219,141,231,1472
420 DATA 219,141,229,219,141,192,219,141,1501
430 DATA 193,219,141,194,219,141,32,208,1347
440 DATA 141,33,208,169,0,141,14,220,926
450 DATA 133,251,169,56,133,252,169,23,1186
460 DATA 141,17,208,133,253,169,1,133,1055
470 DATA 187,120,169,146,141,20,3,169,955
480 DATA 32,141,21,3,169,248,141,18,773
490 DATA 208,88,169,129,141,26,208,173,1142
500 DATA 1,220,41,16,208,249,169,240,1144
510 DATA 141,26,208,120,169,49,141,20,874
520 DATA 3,169,234,141,21,3,169,27,767
530 DATA 141,17,208,169,1,141,14,220,911
540 DATA 88,96,173,25,208,41,1,208,840
550 DATA 3,76,49,234,141,25,208,165,901
560 DATA 254,240,11,230,2,165,2,41,945
570 DATA 1,208,3,76,209,33,198,253,981
580 DATA 165,253,201,15,240,13,173,17,1077
590 DATA 208,41,224,5,253,141,17,208,1097
600 DATA 76,209,33,169,23,133,253,173,1069
610 DATA 17,208,41,224,5,253,141,17,906
620 DATA 208,162,3,189,40,4,157,0,763
630 DATA 4,189,80,4,157,40,4,189,667
640 DATA 120,4,157,80,4,189,160,4,718
650 DATA 157,120,4,189,200,4,157,160,991
660 DATA 4,189,240,4,157,200,4,189,987
670 DATA 24,5,157,240,4,189,64,5,688
680 DATA 157,24,5,189,104,5,157,64,705
690 DATA 5,189,144,5,157,104,5,189,798
700 DATA 184,5,157,144,5,189,224,5,913
710 DATA 157,184,5,189,8,6,157,224,930
720 DATA 5,189,48,6,157,8,6,189,608
730 DATA 88,6,157,48,6,189,128,6,628
740 DATA 157,88,6,189,168,6,157,128,899
750 DATA 6,189,208,6,157,168,6,189,929
760 DATA 248,6,157,208,6,189,32,7,853
770 DATA 157,248,6,189,72,7,157,32,868
780 DATA 7,189,112,7,157,72,7,189,740
790 DATA 152,7,157,112,7,189,192,7,823
800 DATA 157,152,7,169,32,157,192,7,873
810 DATA 232,224,37,240,3,76,211,32,1055
820 DATA 230,187,165,187,41,1,133,187,1131
830 DATA 169,190,133,184,160,0,177,251,1264
840 DATA 133,183,169,20,56,229,183,133,1106
850 DATA 183,169,0,141,167,2,177,251,1090
860 DATA 24,101,184,133,184,160,2,177,965
870 DATA 251,166,187,224,0,240,2,9,1079
880 DATA 128,145,184,32,217,33,224,0,963
890 DATA 240,6,201,32,240,2,9,128,858
900 DATA 230,184,145,184,198,184,200,200,1525
910 DATA 238,167,2,173,167,2,197,183,1129
920 DATA 208,213,224,0,240,11,165,251,1312
930 DATA 24,105,40,133,251,144,2,230,929
940 DATA 252,169,248,141,18,208,76,188,1300
950 DATA 254,41,127,201,46,208,4,24,905
960 DATA 105,16,96,201,45,208,4,56,731
970 DATA 233,17,96,201,48,208,4,56,863
980 DATA 233,5,96,201,32,208,1,96,872
990 DATA 201,27,144,4,56,233,16,96,777
1000 DATA 24,105,64,96,169,0,133,251,842
1010 DATA 169,56,133,252,160,0,169,32,971
1020 DATA 145,251,136,208,249,230,252,165,1636
1030 DATA 252,201,160,208,241,169,56,133,1420
1040 DATA 252,160,0,169,1,145,251,165,1143
1050 DATA 251,24,105,40,133,251,144,243,1191
1060 DATA 230,252,165,252,201,160,208,235,1703
1070 DATA 96,162,0,189,152,7,157,192,955
1080 DATA 7,189,112,7,157,152,7,189,820
1090 DATA 72,7,157,112,7,189,32,7,583
1100 DATA 157,72,7,189,248,6,157,32,868
1110 DATA 7,189,208,6,157,248,6,189,1010
1120 DATA 168,6,157,208,6,189,128,6,868
1130 DATA 157,168,6,189,88,6,157,128,899
1140 DATA 6,189,48,6,157,88,6,189,689
1150 DATA 8,6,157,48,6,189,224,5,643
1160 DATA 157,8,6,189,184,5,157,224,930
1170 DATA 5,189,144,5,157,184,5,189,878
1180 DATA 104,5,157,144,5,189,64,5,673
1190 DATA 157,104,5,189,24,5,157,64,705
1200 DATA 5,189,240,4,157,24,5,189,813
1210 DATA 200,4,157,240,4,189,160,4,958
1220 DATA 157,200,4,189,120,4,157,160,991
1230 DATA 4,189,80,4,157,120,4,189,747
1240 DATA 40,4,157,80,4,189,0,4,478
1250 DATA 157,40,4,232,224,40,240,3,940
1260 DATA 76,59,34,96,169,0,133,251,818
1270 DATA 169,216,133,252,160,0,169,6,1105
1280 DATA 145,251,136,208,249,230,252,165,1636
1290 DATA 252,201,220,208,241,96,169,0,1387
1300 DATA 133,251,133,253,169,4,133,252,1328
1310 DATA 169,160,133,254,160,0,177,251,1304
1320 DATA 145,253,136,208,249,230,252,230,1703
1330 DATA 254,165,252,201,8,208,239,96,1423
1340 DATA 169,0,133,251,133,253,169,4,1112
1350 DATA 133,254,169,160,133,252,169,54,1324
1360 DATA 133,1,160,0,177,251,145,253,1120
1370 DATA 136,208,249,230,252,230,254,165,1724
1380 DATA 254,201,8,208,239,169,55,133,1267
1390 DATA 1,96,169,147,32,210,255,169,1079
1400 DATA 0,133,251,169,216,133,252,160,1314
1410 DATA 0,173,168,2,145,251,136,208,1083
1420 DATA 248,230,252,165,252,201,220,208,1776
1430 DATA 240,96,234,255,-1,825
1550 DATA 3,7,15,30,60,60,63,63,301
1560 DATA 127,127,60,60,60,60,63,63,620
1570 DATA 15,31,62,60,60,60,60,60,408
1580 DATA 127,127,60,60,60,60,60,60,614
1590 DATA 127,127,60,60,60,60,63,63,620
1600 DATA 127,127,60,60,60,60,63,63,620
1610 DATA 15,31,62,60,60,60,60,60,408
1620 DATA 126,126,60,60,60,60,63,63,618
1630 DATA 15,15,3,3,3,3,3,3,48
1640 DATA 3,3,0,0,0,0,0,0,6
1650 DATA 60,60,60,61,63,63,63,63,493
1660 DATA 60,60,60,60,60,60,60,60,480
1670 DATA 56,60,62,63,63,63,61,60,488
1680 DATA 60,60,62,63,63,63,63,63,497
1690 DATA 15,31,62,60,60,60,60,60,408
1700 DATA 127,127,60,60,60,60,63,63,620
1710 DATA 15,31,62,60,60,60,60,60,408
1720 DATA 127,127,60,60,60,60,63,63,620
1730 DATA 15,31,62,60,60,62,31,15,336
1740 DATA 63,63,51,3,3,3,3,3,192
1750 DATA 126,126,60,60,60,60,60,60,612
1760 DATA 60,60,60,60,60,60,60,60,480
1770 DATA 60,60,60,60,60,60,60,61,481
1780 DATA 60,60,60,62,31,15,3,3,294
1790 DATA 60,60,60,60,30,15,7,3,295
1800 DATA 63,63,48,0,0,1,3,7,185
1810 DATA 60,48,48,48,48,48,60,0,360
1820 DATA 0,0,0,0,0,0,252,252,504
1830 DATA 60,-1,60
1840 DATA 0,0,0,0,0,0,0,0,0
1850 DATA 192,192,192,192,192,192,192,192,1536
1860 DATA 240,248,124,60,60,124,248,224,1328
1870 DATA 240,248,124,60,60,120,240,240,1332
1880 DATA 252,252,252,188,60,60,60,60,1184
1890 DATA 252,252,12,0,240,248,124,60,1188
1900 DATA 240,248,60,28,0,0,240,248,1064
1910 DATA 252,252,60,124,248,240,224,192,1592
1920 DATA 240,248,124,60,60,124,248,240,1344
1930 DATA 240,248,60,60,60,124,252,252,1296
1940 DATA 0,102,60,255,60,102,0,0,579
1950 DATA 240,248,124,60,124,252,252,188,1488
1960 DATA 0,0,0,0,0,24,24,48,96
1970 DATA 0,0,0,0,0,0,63,63,126
1980 DATA 0,0,0,0,0,0,0,0,0
1990 DATA 0,3,6,12,24,48,96,0,189
2000 DATA 15,31,62,60,60,60,61,63,412
2010 DATA 3,3,3,3,15,15,3,3,48
2020 DATA 15,31,60,56,0,0,0,3,165
2030 DATA 15,31,60,56,0,0,3,3,168
2040 DATA 0,1,3,7,15,30,60,60,176
2050 DATA 63,63,60,60,63,63,0,0,372
2060 DATA 15,31,62,60,60,60,63,63,414
2070 DATA 63,63,60,60,0,1,3,3,253
2080 DATA 15,31,62,60,60,62,31,15,336
2090 DATA 15,31,62,60,60,62,31,15,336
2100 DATA 0,-1,0
2110 DATA 192,224,240,120,60,60,252,252,1400
2120 DATA 240,248,124,60,60,120,240,240,1332
2130 DATA 240,248,60,28,0,0,0,0,576
2140 DATA 192,224,240,120,56,60,60,60,1012
2150 DATA 252,252,12,0,0,0,224,224,964
2160 DATA 252,252,12,0,0,0,224,224,964
2170 DATA 240,248,60,28,0,0,252,252,1080
2180 DATA 126,126,60,60,60,60,252,252,996
2190 DATA 240,240,192,192,192,192,192,192,1632
2200 DATA 252,252,240,240,240,240,240,240,1944
2210 DATA 62,124,248,240,224,192,128,128,1346
2220 DATA 0,0,0,0,0,0,0,0,0
2230 DATA 7,15,31,63,255,255,239,207,1072
2240 DATA 60,60,60,60,188,252,252,252,1184
2250 DATA 240,248,124,60,60,60,60,60,912
2260 DATA 240,248,124,60,60,124,248,240,1344
2270 DATA 240,248,124,60,60,60,60,60,912
2280 DATA 240,248,124,60,60,124,248,240,1344
2290 DATA 240,248,60,28,0,0,240,248,1064
2300 DATA 252,252,204,192,192,192,192,192,1668
2310 DATA 126,126,60,60,60,60,60,60,612
2320 DATA 60,60,60,60,60,60,60,60,480
2330 DATA 15,15,15,15,15,15,207,239,536
2340 DATA 60,60,60,124,248,240,192,192,1176
2350 DATA 60,60,60,60,120,240,224,192,1016
2360 DATA 252,252,60,124,248,240,224,192,1592
2370 DATA 0,-1,0
2380 DATA 60,60,60,60,60,60,0,0,360
2390 DATA 60,60,60,60,127,127,0,0,494
2400 DATA 60,60,60,62,31,15,0,0,288
2410 DATA 60,60,60,60,127,127,0,0,494
2420 DATA 60,60,60,60,127,127,0,0,494
2430 DATA 60,60,60,60,126,126,0,0,492
2440 DATA 60,60,60,62,31,15,0,0,288
2450 DATA 60,60,60,60,126,126,0,0,492
2460 DATA 3,3,3,3,15,15,0,0,42
2470 DATA 0,0,56,60,31,15,0,0,162
2480 DATA 63,63,61,60,60,60,0,0,367
2490 DATA 60,60,60,60,127,127,0,0,494
2500 DATA 60,60,60,60,60,60,0,0,360
2510 DATA 61,60,60,60,60,60,0,0,361
2520 DATA 60,60,60,62,31,15,0,0,288
2530 DATA 60,60,60,60,126,126,0,0,492
2540 DATA 60,62,31,15,0,0,0,0,168
2550 DATA 63,63,61,60,126,126,0,0,499
2560 DATA 0,0,56,60,31,15,0,0,162
2570 DATA 3,3,3,3,7,7,0,0,26
2580 DATA 60,60,60,62,31,15,0,0,288
2590 DATA 60,60,30,15,7,3,0,0,175
2600 DATA 63,63,63,63,62,60,0,0,374
2610 DATA 15,31,62,60,60,60,0,0,288
2620 DATA 3,3,3,3,7,7,0,0,26
2630 DATA 15,31,62,60,63,63,0,0,294
2640 DATA 195,207,207,207,207,207,195,255,1680
2650 DATA 0,0,0,0,0,0,0,0,0
2660 DATA 24,-1,24
2670 DATA 0,0,0,0,0,0,0,0,0
2680 DATA 192,192,192,192,252,252,0,0,1272
2690 DATA 192,0,0,12,252,252,0,0,708
2700 DATA 120,60,60,124,248,240,0,0,852
2710 DATA 255,255,60,60,60,60,0,0,750
2720 DATA 60,60,60,124,248,240,0,0,792
2730 DATA 124,60,60,124,248,240,0,0,856
2740 DATA 192,192,192,192,192,192,0,0,1152
2750 DATA 120,60,60,124,248,240,0,0,852
2760 DATA 60,60,60,124,248,240,0,0,792
2770 DATA 255,153,195,0,195,153,255,255,1461
2780 DATA 60,60,60,124,248,240,0,0,792
2790 DATA 255,255,255,255,255,231,231,207,1944
2800 DATA 0,0,0,0,0,0,0,0,0
2810 DATA 0,0,3,3,3,3,0,0,12
2820 DATA 255,252,249,243,231,207,159,255,1851
2830 DATA 63,62,60,62,31,15,0,0,293
2840 DATA 3,3,3,3,63,63,0,0,138
2850 DATA 15,31,62,60,63,63,0,0,294
2860 DATA 0,0,56,60,31,15,0,0,162
2870 DATA 63,63,0,0,0,0,0,0,126
2880 DATA 0,0,56,60,31,15,0,0,162
2890 DATA 62,60,60,62,31,15,0,0,290
2900 DATA 3,3,3,3,3,3,0,0,18
2910 DATA 30,60,60,62,31,15,0,0,258
2920 DATA 0,0,56,60,31,15,0,0,162
2930 DATA 255,-1,255
2940 DATA 60,60,60,60,60,60,0,0,360
2950 DATA 120,60,60,124,248,240,0,0,852
2960 DATA 0,0,28,60,248,240,0,0,576
2970 DATA 60,56,120,240,224,192,0,0,892
2980 DATA 0,0,0,12,252,252,0,0,516
2990 DATA 0,0,0,0,0,0,0,0,0
3000 DATA 60,60,60,124,248,240,0,0,792
3010 DATA 60,60,60,60,126,126,0,0,492
3020 DATA 192,192,192,192,240,240,0,0,1248
3030 DATA 240,240,240,240,224,192,0,0,1376
3040 DATA 192,224,240,248,124,62,0,0,1090
3050 DATA 0,0,0,12,252,252,0,0,516
3060 DATA 15,15,15,15,15,15,0,0,90
3070 DATA 252,252,124,60,60,60,0,0,808
3080 DATA 60,60,60,124,248,240,0,0,792
3090 DATA 60,120,224,240,252,124,0,0,1020
3110 DATA 192,224,240,248,124,62,0,0,1090
3120 DATA 124,60,60,124,248,240,0,0,856
3130 DATA 192,192,192,192,224,224,0,0,1216
3140 DATA 60,60,60,124,248,240,0,0,792
3150 DATA 60,60,120,240,224,192,0,0,896
3160 DATA 255,255,255,63,31,15,0,0,874
3170 DATA 240,248,124,60,60,60,0,0,792
3180 DATA 192,192,192,192,224,224,0,0,1216
3190 DATA 128,0,0,12,252,252,0,0,644
3200 DATA 231,-1,231
3210 DATA 169,0,133,251,133,253,169,31,1139
3220 DATA 133,254,169,55,133,252,160,0,1156
3230 DATA 177,251,145,253,136,208,249,230,1649
3240 DATA 252,230,254,165,254,201,56,208,1620
3250 DATA 239,169,31,133,252,169,251,162,1406
3260 DATA 0,160,56,32,216,255,96,255,-1,1070
3270 DATA 11,8,0,0,158,50,48,54,329
3280 DATA 51,0,0,0,0,0,165,186,402
3290 DATA 201,126,240,37,169,0,133,251,1157
3300 DATA 133,253,169,160,133,254,56,233,1391
3310 DATA 23,133,252,160,0,177,251,145,1141
3320 DATA 253,136,208,249,198,252,198,254,1748
3330 DATA 165,252,201,8,208,239,32,0,1105
3340 DATA 32,169,126,133,186,169,28,141,984
3350 DATA 24,208,173,255,47,133,254,32,1126
3360 DATA 9,32,169,21,141,24,208,32,-1,636